home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 24 / AACD 24.iso / AACD / Resources / System / ReadRDB / Install / Install_ReadRDB < prev   
Text File  |  1995-07-04  |  4KB  |  136 lines
  1. ; $Id: Install_ReadRDB 0.1 1995/01/10 14:18:09 Gérard_Cornu Exp Gérard_Cornu $
  2. ;
  3. ; $Log: Install_ReadRDB $
  4. ; Revision 0.1  1995/01/10  14:18:09  Gérard_Cornu
  5. ; Initial version.
  6. ;
  7. ;
  8. ;-- Language specific string definitions --------------------------------------
  9.  
  10. ; ENGLISH -----------------------------
  11. (procedure english (
  12.    (set MSG_BAD_KICK "%s needs at least system software 2.04.")
  13.    (set MSG_INSTALL (cat "\nThis section lets you install the %s executable.\n\n"
  14.                          "If you choose to skip this part you'll be given the choice to"
  15.                          " install the documentation for %s."))
  16.    (set MSG_INSTALL_HELP "\n\n    hello ;-)")
  17.    (set MSG_DESTINATION (cat "Where would you like %s to be installed?\n"
  18.                         "(NO drawer will be created)"))
  19.    (set MSG_COPYING "Going to copy %s to %s.")
  20.    (set MSG_WHATDOC "Install the documentation in AmigaGuide\nformat for this language:")
  21.    (set MSG_NONE "none")
  22.    (set MSG_WHEREDOC "Where shall I put the documentation?")
  23.    (set MSG_YES "Yes")
  24.    (set MSG_NO "No")
  25.    (set MSG_PROCEED "Proceed")
  26.    (set MSG_SKIP "Skip this part")
  27.    (set MSG_THANKS "\n\nThanks for installing %s.")
  28.    (set docfile 0)
  29. ))
  30.  
  31. ; FRANÇAIS ----------------------------
  32. (procedure français (
  33.    (set MSG_BAD_KICK "%s nécessite le système 2.04 minimum.")
  34.    (set MSG_INSTALL (cat "\n\nCette partie vous permet d'installer l'exécutable %s.\n\n"
  35.                          "Si vous choisissez de passer cette partie il vous sera alors"  
  36.                          " proposé d'installer la documentation pour %s."))
  37.    (set MSG_INSTALL_HELP "\n\n    Coucou ;-)")
  38.    (set MSG_DESTINATION (cat "Où désirez-vous installer %s?\n"
  39.                         "(AUCUN tiroir ne sera créé)"))
  40.    (set MSG_COPYING "Prêt â copier %s vers %s.")
  41.    (set MSG_WHATDOC "Installation de la documentation au format\nAmigaGuide pour ce langage:")
  42.    (set MSG_NONE "aucun")
  43.    (set MSG_WHEREDOC "Où dois-je mettre la documentation?")
  44.    (set MSG_YES "Oui")
  45.    (set MSG_NO "Non")
  46.    (set MSG_PROCEED "Installer")
  47.    (set MSG_SKIP "Passer cette partie")
  48.    (set MSG_THANKS "\n\nMerci d'avoir installé %s.")
  49.    (set docfile 1)
  50. ))
  51. ;------------------------------------------------------------------------------
  52.  
  53. (if (= @language "english")  (english))
  54. (if (= @language "français") (français))
  55.  
  56. (set vernum (getversion))
  57. (set osversion (/ vernum 65536))
  58. (if (>= osversion 39)
  59.    (set reader "MultiView") 
  60.    (set reader "AmigaGuide")
  61. )
  62.  
  63. (if (< osversion 37)
  64.    (abort (MSG_BAD_KICK @app-name))
  65. )
  66.  
  67. (set installed 0)
  68.  
  69. (if (askbool (prompt (MSG_INSTALL @app-name @app-name)) (help MSG_INSTALL_HELP) 
  70.              (choices MSG_PROCEED MSG_SKIP) (default 1))
  71.    (   
  72.       (set dest_dir
  73.          (askdir (prompt (MSG_DESTINATION @app-name @app-name))
  74.                  (help @askdir-help)
  75.                  (default @default-dest)
  76.                  (newpath)
  77.          )
  78.       )
  79.       (set @default-dest dest_dir)
  80.  
  81.       (copyfiles  (prompt (MSG_COPYING "ReadRDB" @default-dest))
  82.                   (help @copyfiles-help)
  83.                   (source "/ReadRDB")
  84.                   (dest @default-dest)
  85.       )
  86.       (set installed 1)
  87.    )
  88. )
  89.  
  90. (set docfile
  91.     (askchoice  (prompt MSG_WHATDOC)
  92.                 (help @askchoice-help)
  93.                 (choices "english" "français" MSG_NONE)
  94.                 (default docfile))
  95. )
  96. (set docdir
  97.     (if (AND (= @user-level 2) (<> docfile 2))
  98.         (askdir (prompt MSG_WHEREDOC)
  99.                 (help @askdir-help)
  100.                 (default @default-dest))
  101.         (@default-dest)
  102.     )
  103. )
  104.  
  105.  
  106. (select docfile
  107.  
  108.     (copyfiles  (help @copyfiles-help)
  109.                 (source "/Docs/English.guide")
  110.                 (dest docdir)
  111.                 (newname "ReadRDB.guide")
  112.                 (infos)
  113.                 (optional "nofail")
  114.     )
  115.     (copyfiles  (help @copyfiles-help)
  116.                 (source "/Docs/Français.guide")
  117.                 (dest docdir)
  118.                 (newname "ReadRDB.guide")
  119.                 (infos)
  120.                 (optional "nofail")
  121.     )
  122.     ("")  ; "none"
  123. )
  124.  
  125. (if (exists (tackon docdir "ReadRDB.guide.info") (noreq))
  126.    (
  127.       (tooltype   (dest (tackon docdir "ReadRDB.guide"))  (noposition) (setdefaulttool reader))
  128.       (set installed 1)
  129.    )
  130. )
  131.  
  132. (if (= 1 installed)
  133.    (exit (MSG_THANKS @app-name))
  134.    (exit (quiet))
  135. )
  136.